REQUESTRESPONSE 'Der unerträgliche Laberkopp' || '0a'x ||Outhor|| '0a'x || 'ist nun auf dem Filter, Sir!' || '0a'x 'Soll ich es ihm noch in einer Nachricht mitteilen?'
If RC then DO
tmp = 'T:koppi.txt'
ok = OPEN('msg',tmp,'W')
ok = WRITELN('msg',message || '0a'x)
ok = WRITELN('msg','Diese Mail wurde Automatisch mit MELITTA V1.1 erstellt.' || '0a'x)